10 OPEN2,8,2,"@0:PRGLIST.D,S,W":PRINT#2,"0";CHR$(13);
20 OPEN3,8,3,"@0:HDRLIST.D,S,W":PRINT#3,"0";CHR$(13);
30 CLOSE2:CLOSE3